#Responsability:
#Read the measurements

Measurements <- setRefClass(    
  "measurements"
  
  , fields = list(
    path="character",
    file="character"
  )
  , methods = list(
    #
    #
    # Constructor
    #
    #
    initialize = function(path = configuration@commonFolder,
                          file = configuration@measurementsFile, ...)
    {
      callSuper(..., 
                path = path,
                file = file)
    },
    #
    #
    # Read the configured measurements files
    # Return: the measurements
    # 
    #
    readMeasurements = function() {
      
      print("METHOD IN: measurements")
      
      filename <- paste(path,file,sep="")
      values <- read.table(filename, header=T, sep="\t",dec=".")
      
      print("METHOD OUT: measurements")
      
      # including all years
      values
      
    }
    
    
    
    
  )#End methods List 
  
)#End RefClass
